MacWorld 1999 April/Macworld (1999-04).dmg/Serious Software/SiteCam 3.0 demo/Extras/Sample AppleScripts/FTP Scripts/Anarchie sample

Text File | 1997-11-11 | 717 b | 24 lines | [TEXT/ToyS]

-- A post-process script to FTP the last image to a remote location.
-- This script uses a two step process to minimize the time that a image
-- is unavailable to the http server.

-- Get the name of the last image saved
tell application "SiteCam"
    set yourLocalImage to last image file of active document
end tell

-- Change the variables below, and add passwords, if needed.

tell application "Anarchie"

    set ftptempfile to "/yourpath/temp.jpg"
    set ftpdestfile to "/yourpath/current.jpg"
    set yourFTPHost to "ftp.yourhost.com"

    with timeout of 1000 seconds
        store file yourLocalImage host yourFTPHost path ftptempfile
        rename host yourFTPHost path ftptempfile newname ftpdestfile
    end timeout

end tell